home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00025_Script_Rollover Hue Shifter < prev    next >
Text File  |  1997-09-30  |  1KB  |  42 lines
  1. -- Rollover -> Shift Hue
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pOff,pOn,pSpeed
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#pOff,[format:#integer,comment:"Off Hue (degrees):",¼
  14.                          Default:0, range:[min:0,max:360]]
  15.   addProp pList,#pOn,[format:#integer,comment:"On Hue (degrees):",¼
  16.                        Default:0, range:[min:0,max:360]]
  17.   addProp pList,#pSpeed,[format:#integer,comment:"Frames:", Default:10]
  18.   return pList
  19. end
  20.  
  21. on beginSprite me
  22.   set s=the spriteNum of me
  23.   if not alphaManiac(s) then exit
  24.   
  25.   hsb(sprite s,[hueShift:pOff])
  26. end
  27.  
  28. on mouseEnter me
  29.   set s=the spriteNum of me
  30.   if not alphaManiac(s) then exit
  31.   
  32.   hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startHue:pOff, endHue:pOn])
  33. end
  34.  
  35. on mouseLeave me
  36.   set s=the spriteNum of me
  37.   if not alphaManiac(s) then exit
  38.   
  39.   hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startHue:pOn, endHue:pOff])
  40.   
  41. end
  42.